home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / sync / Ping.dpr < prev    next >
Encoding:
Text File  |  2001-02-26  |  278 b   |  19 lines
  1. //TGpFileEvent demo - signalling part
  2.  
  3. program Ping;
  4. {$APPTYPE CONSOLE}
  5. uses
  6.   SysUtils,
  7.   GpFileSync;
  8.  
  9. var
  10.   evt: TGpFileEvent;
  11.  
  12. begin
  13.   evt := TGpFileEvent.Create('demo.evt');
  14.   try
  15.     Writeln('Ping...');
  16.     evt.Signal;
  17.   finally FreeAndNil(evt) end;
  18. end.
  19.